This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
field_list = doc.MyList
group_list = Evaluate(|@Name([CN]; @DbLookup("":"NoCache";"":"names.nsf";"Groups";"Group_TC";"Members";[FailSilent]))|)
new_list = Arrayunique(Arrayappend(field_list, group_list))
Call doc.ReplaceItemValue("MyList", new_list)
Call doc.Save(True, False)
Call uidoc.Refresh
Feedback response number WEBB8BSMZK created by ~Phil Nonhipigenikle on 12/03/2010